﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class ProdmvFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As ProdmvBE
        Dim tmpProdmv As ProdmvBE = New ProdmvBE()
        Try
            With tmpProdmv
                .Cantidad = convertDTFromDb.convertInt32(dr.Item("Cantidad"))
                .Clave = convertDTFromDb.ConvertString(dr.Item("Clave"))
                .Descripcion = convertDTFromDb.ConvertString(dr.Item("Descripcion"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .Usr = convertDTFromDb.ConvertString(dr.Item("Usr"))
            End With
            Return tmpProdmv
        Catch ex As Exception
            Throw
        Finally
            tmpProdmv = Nothing
        End Try
    End Function
End Class
